<%Response.ContentType = "text/xml"%><?xml version="1.0" encoding="windows-1251"?>
<!--#include file="Connection.asp" -->
<!--#include file="adovbs.inc" -->
<%
if request.QueryString("AnketaId")<>empty then

	Set cn=Server.CreateObject("ADODB.Connection")
	Set rs=Server.CreateObject("ADODB.Recordset") 
	
	str=Cstr(request.QueryString("AnketaId"))
	sSQL="exec sp_get_anketa_desc "&str&",''"
	'response.Write sSQL
	
	cn.open connStr&";Initial Catalog=Quizes"
	

	
	rs.open sSQL,cn,1,3
	
	
	if not rs.EOF then
		result_xml=rs("xml_text")
		response.Write 	result_xml		
	end if

end if
%>

